Sub DemoMessage
msgbox "This tool button works.  WOOF!"
End Sub

Sub SummaryInfo
	MsgBox "The current version of ArcPad is " & _
         Application.Properties("ProductVersion") & vbCrLf & _
			  "The current map scale is 1:" & Map.Scale & vbCrLf & _
		    "There are " & Map.Layers.Count & _
 		    " layers in the current map."

	Dim strVectorLayers, strRasterLayers, strEditableLayers
	strVectorLayers = "The vector layers in the current map are "
	strRasterLayers = "The raster layers in the current map are "
	strEditableLayers = "The editable layers in the current map are "
	Dim objLyr
	For Each objLyr in Map.Layers
		If objLyr.LayerType = 0 Then   'Vector layer
			strVectorLayers = strVectorLayers & objLyr.Name & ", "
			If objLyr.Editable Then   'Editable layer.. only vector layers can be editable
				strEditableLayers = strEditableLayers & objLyr.Name & ", "
			End If
		Elseif objLyr.LayerType = 1 Then  'Raster layer
			strRasterLayers = strRasterLayers & objLyr.Name & ", "
		End If
	Next
	MsgBox strVectorLayers & vbCrLf & _
				strRasterLayers & vbCrLf & _
				strEditableLayers
End Sub

